perm filename FOO[258,JMC] blob
sn#144962 filedate 1975-02-10 generic text, type T, neo UTF8
1 (∀N.((0≥N∧Q(N))⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M))))∧∀N.(∀N2.((N≥N2∧Q(N2))⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M))))⊃∀N2.((S%
UCCN≥N2∧Q(N2))⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M))))))⊃∀N N2.((N≥N2∧Q(N2))⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M)))) ∧I (NIL)%
2 M≥0 ∀E NIL M
3 ¬(M≥0)⊃¬Q(M) TAUT
4 ∀M.(¬(M≥0)⊃¬Q(M)) ∀I 3 M ← M
5 Q(0) (5) ASSUME
6 Q(0)∧∀M.(¬(M≥0)⊃¬Q(M)) (5) ∧I (5 4)
7 ∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M))) (5) 6 0 ← N1
8 0≥N⊃N=0 ∀E NIL N
9 Q(0)⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M))) ⊃I 5 7
10 (0≥N∧Q(N))⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M))) TAUTEQ
11 ∀N.((0≥N∧Q(N))⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M)))) ∀I 10 N ← N
12 ∀N.(∀N2.((N≥N2∧Q(N2))⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M))))⊃∀N2.((SUCCN≥N2∧Q(N2))⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M)))))%
⊃∀N N2.((N≥N2∧Q(N2))⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M)))) TAUT
13 ∀N2.((N≥N2∧Q(N2))⊃∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M)))) (13) ASSUME
14 Q(SUCCN) (14) ASSUME
15 ∀M.(¬(M≥SUCCN)⊃¬Q(M)) (15) ASSUME
16 Q(SUCCN)∧∀M.(¬(M≥SUCCN)⊃¬Q(M)) (14 15) ∧I (14 15)
17 ∃N1.(Q(N1)∧∀M.(¬(M≥N1)⊃¬Q(M))) (14 15) 16 SUCCN ← N1